home *** CD-ROM | disk | FTP | other *** search
/ The X-Philes (2nd Revision) / The X-Philes Number 1 (1995).iso / xphiles / hp48hor1 / paral.src < prev    next >
Text File  |  1991-09-08  |  3KB  |  119 lines
  1. %%HP: T(3)A(D)F(.); 
  2.   @ PARAL - Large Version L. Hoppis 3/14/91 DONE Rev 1.4
  3.   @ 1842 Bytes #6E15h
  4. DIR
  5.   RPAR
  6.     \<< DUP NXT \->BIN 0 RND DUP
  7.       RCLF -49 CF -50 CF -40 CF
  8.       PICT PURGE { #0d #0d } { #122d #63d } BOX
  9.       PICT { #124d #4d } LOGO REPL PICT RCL 0 0 0
  10.       \-> r x i f b t y z
  11.       \<< { # 0d # 0d } PVIEW
  12.         DO i \->VAL -3 RND DUP r OVER * SWAP r - / ABS \->BIN 0 RND
  13.            \->VAL -3 RND
  14.            IF DUP2 >
  15.             THEN DROP2 PICT "- END OF LIST -" 1 \->GROB
  16.               # 30d y # 7d * # 2d + 2 \->LIST SWAP GOR 9 'y'STO
  17.             ELSE DUP2 \->PAR r %CH
  18.             IF ABS DUP ACCU <
  19.               THEN 2 RND DUP
  20.               IF NOT
  21.                 THEN " " SWAP +
  22.                 ELSE \->STR
  23.                 IF DUP SIZE 3 <
  24.                   THEN 0 +
  25.                   END
  26.                 END " % - " + ROT DSP " || " +
  27.                 ROT DSP + + PICT SWAP 1 \->GROB # 13d y # 7d
  28.                 * # 2d + 2 \->LIST SWAP GOR 'y' INCR DROP
  29.               ELSE 3 DROPN
  30.               END 'i' INCR DROP 'z'INCR DROP
  31.             END
  32.           IF y 8 >
  33.             THEN TONE 0 WAIT
  34.               0 'y' STO
  35.               IF DUP
  36.                 85.1 ==
  37.                 THEN
  38.                   IF i t z + - DUP x \>=
  39.                     THEN 'i' STO
  40.                     ELSE DROP
  41.                     END
  42.                 ELSE z 't' STO
  43.                 END
  44.               PICT { # 0d # 0d } b REPL 0 'z' STO
  45.             ELSE 0
  46.             END
  47.         UNTIL 55.1 ==
  48.         END  f STOF r
  49.       \>>
  50.     \>>
  51.  
  52.   NXT
  53.     \<< DUP \->BIN CEIL DUP \->VAL -3 RND ROT
  54.         IF SAME
  55.            THEN 1 + \->VAL -3 RND
  56.            ELSE \->VAL -3 RND
  57.            END
  58.     \>>
  59.  
  60.   PRV
  61.     \<< DUP \->BIN FLOOR DUP \->VAL -3 RND ROT
  62.         IF SAME
  63.            THEN 1 - \->VAL -3 RND
  64.            ELSE \->VAL -3 RND
  65.            END
  66.     \>>
  67.  
  68.   \->PAR
  69.     \<< DUP2 * ROT ROT + / \>>
  70.  
  71.   DSP
  72.     \<< DUP MANT SWAP XPON
  73.         CASE
  74.           DUP 6 \>=
  75.             THEN 6 - "M\GW"
  76.             END
  77.           DUP 3 \>=
  78.             THEN 3 - "k\GW"
  79.             END " \GW"
  80.           END SWAP ALOG ROT * \->STR
  81.         CASE
  82.           DUP SIZE 2 <
  83.             THEN ".00" +
  84.             END
  85.           DUP SIZE 3 <
  86.             THEN ".0" +
  87.             END
  88.           DUP SIZE 4 <
  89.             THEN
  90.               IF DUP "." POS
  91.                 THEN "0" +
  92.                 END
  93.             END
  94.           END SWAP +
  95.     \>>
  96.  
  97.   ACCU
  98.     .2
  99.  
  100.  
  101.   \->BIN
  102.     \<< .976300098965 / LN 2.39852613838E-2 / \>>
  103.  
  104.  
  105.   \->VAL
  106.     \<< 2.39852613838E-2 * EXP .976300098965 * \>>
  107.  
  108.   LOGO
  109.     GROB 7 49
  110.     C140C140C10040404040C10040404040400042C2C3434200C140C140C100
  111.     40404040C10000000000E314955454549514E3
  112.  
  113.   PPAR
  114.     { (-6.5,-3.1) (6.5,3.2) X 0 (0,0) FUNCTION Y }
  115.  
  116.   TONE
  117.     \<< 5000 .02 BEEP 3000 .01 BEEP\>>
  118. END
  119.